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if pi.nes.'*” then goto checkquota 
write sysS$output ‘Mount media for system specific file save on ''media’” 
inquire ask ‘’* Are you ready 
f .not. ask then goto retry! 
init ‘media sysave 
$ mount/forei 


$ CREATE_QUOTA=""" 

$ if Wpesarcht sysseystonsdiskquote.exe’)-ogs. then gato nodiskquota 
$ inayire input Media fo be backed up (SYSSSYSDEVICE:)” 

$ if input.eqs.'"' then input:=sysS$sysdevice: 

$ input= input}-":"' + °':' 

$ inquire media ynerateh Backup media (ddcu:)'’ 

$ if fSlocate(’'::"",media).ne.fSlen(media) then goto dosysave 
$ media=media~"':"'+"’: 

$ all ‘media 

$ retr 

t 

$ 

$ 

$ 

$ 


media 


if pl.nes.'”* then goto checkquota 

$ on error then continue 

$ backup/verify sys$system:sysuaf.dat,rightslist.dat,vaxvmssys.par,net*.dat,=- 

notice.txt,modparams.dat,vmsmail.dat - 

*media’sysexe.sav/save/ignore=interlock 

error then continue 

ys phgetl | sysSmanager:*.*:* ‘media'sysmgr.sav/save/ignore=inter lock 

fSlocate("::",media).ne.f$len(media) then goto checkqueta 

sm ‘media 

quota: 

vver=f$verify(0) 

DEF ‘INPUT 


Sth td 
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f/user sys$output sys$update:disq.tmp 
f/user sys$error nl: 
f\etqus a 


PPRAMMOM 


v3 we 
Pe] 


*,%) 

$Sverify(savver) 
ine/user sys$error nl: 
fine/user sys$output nl: 
earch syetupdate: 4) 36 tmp Xdisk 

f Setetus ne. %X08D78053 then goto create_diskq 
a @: 


3 
37500-V"0ax0 
a 


pen/read diskq sys$update:disa.tmp 
ead diskq Line 
ead diskq Line 
xt_uic: 
read/end=done diskq Line = 
uic=FSEDIT( f$extract(0,15,Line),""TRIM’) 
uicnam=euic-"[*'-"') 
comma=f$locate("’,"’,uicnam) 
uvicgroup=fSextr ct lO, comma,uicnam) 
if uicgroup.eq. phen goto next _uic 
uicnapsfSextract ,comma,uicnam)+'"_ 
ual= 
if f$locate("'::"’,media) .ne.f$len(media) then goto dobackup 
retry: 
WRITE SYSSOUTPUT ‘Please place first diskette for user ‘‘uic’ in drive '*media'” 
inquire ask ‘** Are you ready 


PARAAAAMOM 
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+fSextract (comma, f$length(uicnam) ,uicnam) 
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noon 
backup/ignore=interlock/verify ‘input'(C*...J*.*;*/owner="uic ‘media’ 'uicnam'.sav/save'qual 


set on 
if f$Slocate("’::"',media).ne.fS$len(media) then goto next_uic 


oto next_uic 


one: 
close/nolo otek 
$ del sys$update:disq.tmp;* 


write sysSoutput ‘ 
if create_quota.nes. 


% 
$ 
% 
$ dism ‘media 
$ 
& 
$ 
$ 


$ 

$ 

$ 

$ create_quota:=y 

$ del sysSupdate:disq.tp;* 
$def/user sys$output nl. 
$def/user sys$error nl: 

$ mc diskquota 

c 
$ 
$ 
$ 


reate 
GOTO checkquota 
bad_quota: 
write sys$output ‘‘bad quotafile'’ 
to done 
a myeres 
$ mc diskquota 
disable 
4 det ‘input'CO,OJquota.sys; 


ex 
$nodiskquota: 


reate Sieras 
IF CREATE_QUOTA.NES.’"’ THEN GOTO BAD_QUOTA 


eeeeee user backup is now compete *ttt* 
then goto del_quota 


$ write sys$output ‘'The DISKQUOTA utility must be installed on your system’ 
$ write sys$output ‘“‘in order for the save to take place. Please install 
$ write sys$Output “‘this utility and re-run this procedure." 


Sexit 


un” 
<4 
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$ 
$ 
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$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
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